Oa cee cl cel ce cel oe el el ce ce cl el el el oe ee ee od 
Ce eel ee oe el el el ce cee cee oe ll el el el el ol oe el 
Cl cel cel el eel ce el cee el oe el ce eo el ol el el eh ee ad 


oe eee 
ee ee eee oe ee 
ee — 
. oak cae ane 
coe ee 


Ce ee 
CE ee 
Ce eel ek el el el el el ee el el el el ek el od 


re re 
ce [oe el 
ne -—— 

te ee 

Ae 

te ke be 

ak BA kk ee 

Ate te fobs 

a oe ta he ke 

kh te bk te 

ka te he ke 

oe ke be Ek 

a te 

Ae be be te 

A A 


a ke ke te be be te te be te be te te te ae ee ke ke ka a 
ha. Oe be be. Oe be be. be Oe be be be be be. be. te. te. be te te 
hee Oe Oe be be be be be be be be be be be be be te te te te te 


we el cel ce cel eee cee em see ee, ce ce cel, cee re eel eee, cel, cee ce, cee, ce cee cel cee eet cee, cee ee cee oe ee cl oe 


dD 7 


DDDODDDD 
DODDDDDD 
DDDDDDDD 
DDDDDDDD 


tet eo 
end nw Munn 
ee nw mwnmnnm 
Fe un nn nn 
oem wn ww nn 
ee eee ee nn nn nw 
(ee ee ee oon nw nn nn 
—— nn nw nn 
ded mn wn wn 
Lend Munn wn 
ee MMMM nn 
<< < x 
=< << =< xX 
carn =< =< Se ieee = 
=< =< Cee” — 
=< te nd a ey ne Pd ed Od eg Od OS 
24 Ot ee es oe te ne ne ng Oe Ped a nt 
x << ee ee! 
St a ee —e 
<< << 
<< << x 
wud au a 
wud wo Jo 
usu ww [verve a4 
[vere] wu wu a 
wu wu wu aa 
wu ww usu a4 
wu wu wu i) 
wu [verve) wus a4 
a ds ee LL. 
peepee [ee tverretrerrervetverretretrsyrelts) a ee ee ee ee ee ee 


=< 
a 
ot 
— 
=< 
w 
oe 
= 
Qo 
oe 
2 
2 
w 
4 
— 
— 
ao 
oe 


7 | 
bese -1984 00:27:54 VAX-11 Bliss-32 V4.0-742 Pa 1 FALE 
yeneen18he 99:95:3t Pek UMeHASTERSCE igs SReJExTiDx.B32210" c1) vers 
MODULE EXTIDX ( | 


S33 


—OOOWNAVNE AN) OC OONOUE wr — 


LANGUAGE (BLIS$$32), 
SESH. OLS 
BEGIN 


' 
eee eee EEE AAA EEK e KAA AKAA eee eee eee ee 


it COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
it ALL RIGHTS RESERVED. 


'® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
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; FACILITY: FIIACP Structure Level 2 eo. 
! ABSTRACT: 

This routine extends the volume's index file. 

i ENVIRONMENT : 


STARLET operating system, including privileged system services 
and internal exec routines. 
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AUTHOR: Andrew C. Goldstein, CREATION DATE: 14-Apr-1977 10:44 
i MODIFIED &Y: 


v03-006 ACG0438 Andrew C. Goldstein, 2-Aug-1984 11:54 
Add check of index file bitmap size to max files check 


v03-005 CDS0003 Christian D. Saether 25-Apr-1984 
Long addressing mode for certain external routines. 


21-Mar-1984 21:58 
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v03-004 ACG0409 Andrew C. Goldstein, 


bu 2000 i “320-13 93:3bi3e | peekumBAASFeRscH So SReaexripx.032;10%° «15 


: 28 2 } Remove file number parameter; set index file EOF to end. 

: 9 1 v03-003 cos0002 Christian D. Saethe 30-Dec-1983 

: ! Use L_NORM Linkage and BIND * COMMON. macro. 

; eg 2g 1 i v03-002 CDS0001 Christian D. Saether 20-Sep-1983 

; 664 66 1! Ser <¢% reading of index file header. 

$ o? 88? ! Stuff FH $i -HIGHWATER if appropriate. 

a bee 1 / v03=001 ACGO0274 Andrew f. Goldstein, 23-Mar-1982 11:25 
: 4 '¢4 : Allow use of alternate index tile header 

: $3 0070 1 i V02-002 $TJ34965 Steven Jeffr sent epe 1961 

es 0071 1! Temporar ry 

: ue Be : index file, so that if will not be charged A.  dickquets. 
3; 0074 1! B0101 ACcG0121 Andrew C. Goldstein, 16-Jan-1980 21:39 
: fe Babe : } Make context save and restore into subroutines 

; 77 0077 1 B0100 ACG00001 Andrew C. Goldstein, 10-Oct-1978 20:00 

c> on 0078 1! Previous revision history moved to CF11B.SRCJF11B.REV 

; 79 0079 1 Ine 

: 80 0080 1 

; 61 0081 1 

> 82 008 1 LIBRARY ‘SYSS$LIBRARY:LIB.L32'; 

4 83 008 1 REQUIRE ‘SRC$:FCPDEF.B32'; 


| 
| 
| 
| 
| 
| 
fix to set F 1BSV NOCHARGE bit for 


<" 
mn 


kk ek ed nd 2 od ds dd 3 tk a tk ed dd dd 


7 
18-Sep-1986 00:97:54 


GLOBAL ROUTINE EXTEND_INDEX : L_NORM NOVALUE = 


+4 


wr 


DOODODOOSCOOO000 00000 OW 000000008 INNS 


“ OONOUSE = 
DOONAN E WN SO ODNAUN EWN 9 OD NO UE WN O ODNA UE  OOONOUS 


WN —O OONOUEWP) “OC OONOUS WN —-O0O@n 


ee ee a ee ee ee ce ee ee a ee ee el el ee ee ee ed ed ed 
MORO — 


ee ee ee eee 


SOOONOUES WMO 


Waronononononons 


POR OPROROROPORURONONORORONURONURONOPORINOPUINNIII 2 3 


FUNCTIONAL DESCRIPTION: 
This routine extends the volume's index file. 
CALLING SEQUENCE: 
EXTEND_INDEX () 
INPUT PARAMETERS: 
NONE 
IMPLICIT INPUTS: 
CURRENT_VCB: address of volume VCB 
OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
NCNE 
ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 


Pp 
JEXTIDX.B32:1 9 (2 


2 OP OP OP Om om OE ee EE A OO ee 


. 
° 
. 
ta 
. 
a 
os 
6 
7 
e 
= 
. 
° 
© 
. 
. 
° 
> 
oe 
. 
o 
. 
e 
. 
o 
7 
o 
7 
& 
. 
° 
. 
e 


index file extended, index file window and index file FCB modified 


BEGIN 
LOCAL 
MAX_FILES, ! max number of files on volume 
FILESIZE, ' size of index file after extend. 
FIB : REF BBLOCK, ' address of FIB for extend operation 
HEADER : REF BBLOCK, ! address of index fi 
FCB REF BBLOCK, ' address of index file FCB 
WINDOW REF BBLOCK, ' address of index file window 
FREE_POINTERS, ' number of free retrieval pointers 
! in index file window 
FILES_TO_GO, ' number of files Likely to be created 
' on this volume 
BLOCKS_NEEDED; ! amount to extend index file by 
BIND_COMMON; 
EXTERNAL ROUTINE 
SERIAL_FILE : L_NORM, 
RELEASE _SERIAL_LOCK : L_NORM, 
VE_CORTEXT : L_NORM, : Save reentrant context area 
ESTORE CONTEXT : L_NORM, ' restore reentrant context area 
READ_IDR_HEADER : L_NORM, ! read index file header 
TURN” WIND : LINORM ADDRESSING_MODE (GENERAL), ! update file window 
TEND : LNORM, ! extend a file 
CHECKSUM : L_NORM, ' compute file header checksum 


Serialize on the index file header. 


H 7 
EXTIDX 16-Sep-1984 00:27:54 VAX-11 Bliss-32 V4.0-742 Page 4 
v04-000 19780871382 93:90:34 DISKSVMSMASTER:CF11X.SRCJEXTIDX.B32;1 (2) 

t8 WRITE_HEADER : LLNORM, ! write back file header 

4 RESET_LBN : LUNORM, : regss ton Len of buffer 

44 WRITE BLOCK : LUNORM, ! write a disk block 

45 INVALTDATE : LINORM, ' invalidate buffer 

re INIT_FCB2 : LUNORM; ! update file control block 

48 

49 ! Extending the index file is a secondary operation, so we must save away the 
3} } primary context, and then set up the appropriate context for this operation. 
38 SAVE_CONTEXT () 

4 FIB = SECOND FI 

55 CHSFILL (0, FIB 

36 FIBEFIBSW_F1D_N 

ef FIBLFIBSW_FID_S 

59 PRIMARY_FCB = FCB = .CURRENT_ VCBCVCBSL_FCBFLI; 

$9 CURRENT_WINDOW = WINDOW = .FCBCFCBSL_WCFLI; 
6 

63 
64 
6 


uw 


PRIM_LCKINDX = SERIAL_FILE (FIB CFIBSW_FID]); 
Read the index file header. 


HEADER = READ_IDX_HEADER (); 


! Turn the index file window to VBN 3. Then compute the number of free 
! retrieval pointers in the index file window, discounting pointers (if 
any) that only map the boot arid home block. 


KERNEL_CALL (TURN_WINDOW, .WINDOW, .HEADER, 3, 1); 


FREE POINTERS = (.WINDOWCWCBSW_SIZEJ-WCBSC_LENGTH)/6 - 


4 WINDOWCWCBSW_NMAP); 
IF OINDOWCWCBSL_STVBNI + ,WINDOWCWCBS$W_P1-COUNT] LEQu 3 


POINTERS = ,FREE POINTERS + 1; 
IF .QINDOW(WCBSL_STVBN) + .WINDOWCWCBSW_P1_COUNT] + .WINDOWCWCB$W_P2_COUNT] LEQU 3 
THEN FREE_POINTERS = .FREE_POINTERS + 1; 


N . 
IF .FREE_POINTERS LEQ 0 THEN FREE_POINTERS = 1; 


! Check the amount of index file (as determined by max files and the 
size of the index file bitmap). 


| 
| 
’ 
$C_LENGTH, .F1B); 
un = 1; 
£Q) = 1; 


MAX_FILES = MINU (.CURRENT_VCBCVCBSL 

FILES_TO_GO = .MAX FILES -".FCBCFCBSC 
. CURRENT_VCBCVCB$B_IBMA 

IF .FILES T0_G0 Lge 0 

THEN ERR_EXIT (SS$_IDXFILEFULL); 


L 
P 


. CURRENT_VCBLVCB$B_IBMAPSIZE] * 4096); 
CURRENT_VCBLVCB$W_CLUSTER]*4; 
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EXTIDX 0-742 Page 

V04=000 ~Sep-1984 DISKSVMSMASTER:CF1IX.SRCJEXTIDX.B32:1." (23 

; 199 1188 ' Fompute he number of files iikely to still be created on the volume. This 

; 200 1189 ' is | minimum of the number permitted minus the current number and a 

: 201 1190 ! fraction of the number of free blocks on the volume. The amount to extend 

3 S¢ 1191 ! the index file by is this quantity divided by the number of available 

3 a 1138 ' retrieval pointers in the index file window. 

: 204 119 ' 

: 205 1194 

; BS 1195 FILES_TO_GO = MINU (.FILES_TO_GO 

; 44 1138 CURRENT_OCBCVCBSL_FREEJ / .CURRENT_VCBCVCB$W_CLUSTER] / 4); 

3 % 1138 BLOCKS_NEEDED = MINU (.FILES_TO_GO / .FREE_POINTERS, 1000); 

; 19 } 39 } Build the extend control in the FIB and call the EXTEND routine. 

: 21 120 

: 14 1 68 FIBCFIBSL_EXSZ] = .BLOCKS_NEEDED; 

3 15 1204 FIBLFIBSV_ALCON) = 1; 

> 216 1205 2 FIBLFIBSV~ALCONB) = 1; 

3 17 1 88 FIBLFIBSV_ALDEFJ =_1; 

4 Hs : 44 FIBLFIBSV_NOHDREXT] = 1; 

: $9 ; % Set NOCHARGE bit so the index file will not be charged for diskquota. | 

: 22 1211 2 FIB CFIBSV_NOCHARGE) = 1; 

s ¢e 1 \¢ 

: Sse : 17 EXTEND (.FIB, .HEADER); 

: 226 1215 FILESIZE = .FIBCFIBSL_EXSZ) + .FIBCFIBSL_EXVBN) - 1; 

3 ssi 1216 BBLOCK CHEADER[FH2$W_RECATTR], FATSL_HIBCK] = ROT (.FILESIZE, 16); 

; 228 1217 2 IF _NOT - CURRENT veet vc $V_NOHIGHWATER) 

$ $39 ! i THEN BBLOCK CHEADERCFH SW_RECATTR], FATSL_EFBLK] = ROT (.FILESIZE+1, 16); 

5 231 1220 ! If this file header supports it, stuff the high water field to 

; $36 1221 ' be the allocated size. 

: $3 1558 5 

; $e \sse IF .HEADER CFH2$B_IDOFFSET] GEQU (SBYTEOFFSET (FH2$L_HIGHWATER) +4)/2 

; 237 1$s6 HEADER CFH2$L_HIGHWATER] = .FILESIZE + 1; 

: 239 1298 : Now write the header, update the FCB, and restore the primary context. 

: 241 1230 2. 

: 4g 1231 CHECKSUM (. HEADER); 

3 4 1 § WRITE_HEADER (); 

> 26d 1 RESET-LBN (.HEADER, .CURRENT_VCBLVCBSL_IXHDR2LBN]) ; | 

> 245 1234 2 WRITE BLOCK (HEADER); 

: 28 1235 INVALTDATE (.HEADER); 

; ? 6 KERNEL_CALL (INIT_FCB2, .FCB, .HEADER); 

: 49 1 3 RELEASE ime (.PRIM_LCKINDX); 

: 30 39 PRIM_LCRINDX ="0; 

Py | 

3 26 1241 RESTORE _CONTEXT (); 

3 3 : 4g USER_STATUS(1) = 0; 

: 255 1244 1 END; ! end of routine EXTEND_INDEX | 
| 
} 


} 
| 

1b-se 1984 00:27:54 VAX-11 Bliss-32 V4.0-742 P 6 

1 30-1 $be 99:95:34 DISKSVMSMASTER:LF1iX.SRCJEXTIDX.B32;1 (2) 


So 
o 
a 


W 
WR 
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-PSECT SCODES,NOWRT,2 


E 
RIT 
I 
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e { 
ae 
oe 
- { 
. { 
> { 
ef 
- 
: 4 
e { 
ze. 4 
¢ 
$ 
FC 00000 ENTRY EXTEND INDEX, Save R2.R3.R4,R5,RO,R7.RB 1074 - 
58 80 AA 9E 00002 ~128 (BASE), : : 1118 2 
57 98 AA YE 00006 MOVAB <-104(BASE), R : i | 
0000s fF 00 £8 000A CALLS #0, SAVE CONTEXT : 1142 ; 
6 0244 CA 9E 0000F AB S8O(BASEY, FI : 1143 3 | 
6E 00 2c 00014 movcS #0, (SP), #0, #64, (FIB) > 1144 oy 
0% a6 00010001 SF po ooote MOVL #65537, 4(FIB) : 1145 i 
54 00 87 DO 00024 MOVL  a0(R7), FCB : 1148 es 
08 AA 54 DO 00028 MOVL FCB, 8(BASE) : 3 
52 10 A4 DO 0002C MOVL  16(FCB), WINDOW ; 1149 a 
Oc AA 52 D0 00030 MOVL WINDOW, 12 (BASE) ; - | 
04 A6 9F 00034 PUSHAB 4(F IB) > 1154 3 
00006 CF Qi FB 00087 CALLS #1, SERIAL_FILE ; - j 
18 AA 9 D0 9005 OVL RO, 24(BASE) ; - ij 
00006 CF 00 FB 00040 CALLS #0, READ_IDX_HEADER ; 1159 3 3 
53 50 D0 00045 OVL RO, HEADER ; : ij 
01 DD 00048 PUSHL #1 ; 1166 he 
03 DD 0004A PUSHL #3 : 2 ij 
O¢ BB 0004C PUSHR  #*M<R2,R3> : .] 
000000006 00 04 FB OO4E CALLS #4, TURN WINDOW ; at 
50 08 Az 36 0005 MOVZWL 8(WINDOWS, RO : 1168 n 4 
50 30 2 00059 SUBL2 #48, RO : 2 
20 06 66 0009¢ DIVLe #6. RO ; : 
16 Ag 36 00055 MOVZWL 22(WINDOW), FREE POINTERS : 2; 
50 33 £3 00068 SUBL3 FREE POINTERS, RO, FREE_POINTERS ; o 
50 0 A2 3C 0006 MOVZWL 48(WINDOW), RO > 1169 sj 

50 C A2 CO 00068 ADDL2 44(WINDOW), RO ; : 

03 30 D1 OO0GF CHL RO. 3 ; : 

18 1A 00072 BGTRU 1 : : 

33 6 00074 INCL FREE_POINTERS : 1172 ; 

50 30 AZ 5 00076 MOVZWL 4B(WINDOW), RO : 117 ; 

50 gc Ag 0 0007A ADDL2 44(WINDOW), RO ; : 

31 6 Ae 3¢ 0007 MOVZWL S4(WINDOW), RI ; ; 

g CO 000 apDLe RI. RO ; ; 

0 bt CHPL RO, & : 3 

A BGTRU 1 ; : 

D6 OOOBA INCL FREE_POINTERS > 1174 ; 

D C 1$ TSTL  FREE-POINTERS : 1176 ; 

5 81 06 BOVE. #tg_FREE_POINTERS : : 

35 87 DO 0009 28 MOVL = (R?), RO ; 1182 ; 

| 


Se el ta el el lk al el a a el el a aa a ek a ll eh 


KA al no o wo Mew wn O~ O ww Oe CRM mw oO 
™N @o ono Oo on onre - SeMr K— NNR; OMe Ame 
~ -- er = --— ba‘ la*ia*] NU ANY NY NS ON CN NUN ON 
-— --— - eeF orm - oe - eC Fer Fe - - - 
e 
a fete Fe Fe Fe Fe Fe Fe Fe FS FS FS FS FS FS FS FS FE FS FS ES FS HS HS OSHS HS HS OSHS HS HS SSSR ES FES HS SS HS HS HS SS TS SS SSSR STS ES FSFE SSSR FSFE HR HERES 
eo 
ae 
} **s. 
N 
| ~m 
@ 
o 
=< 
| a 
| — 
| i 
oe 
| w 
an 
NL 
wTa 
| Kw 
2s 
j ox 
—_ ~~ 
wer < 
>u. w 
uw ~ a | 
Ne oO @ < 
ma o _ Oo w 
} ous t wo e& = = 
we oO ~ ~~ a 
awn Cod o wT ._ wv w ~~ 
—< i i: 4 N a~ msm a a < 
~= “ N Oo ~ @ < w wa ut 
ow ws - «= oOo - -@ _ -_ A w a a uo w 
= a) «= La) a= uo we FTO < < a © & N 
-> = . oc we _- ~ -—-vTr w sv ow <« @ 
—aA _ o uo .- Oo mw aw re -*> on = = —~ @ & rw) 
‘xs aco cen o& Nn «OC -— wy 6 UNC Oe ~ wm 1 ¢ 6 — te 
<n ec a @wes e- a Y2ZOo Ow 2 w oO + O Mw —- w t 
Pay * — on] - «& & wo &Z wwisOoce x ee VFO we <« - 
>a —_— s aa: =) cw oo ts aN e~ OA veel 4 na = > _ 
cane ODM Ame es asta &— NO Nee «MOM MH ew ere AQweeaezec 2 
Oo Oc Ge weeew CO —OEKVea Gu & OOW WH 2a- 2 we? Owetwswew —- 
ec <= Se ee: ee oe * 4 w w Oouna wus OO eK OG -~=<&a a a oe 
~Nw ed ed a ED hd ssw ss OOM4D wor row Eee + wwe ee ef +O + 
TTF O-- DOH OZOOOAMNN COWS $VA—VNZEOSR—K— UM WO Ste Ew TON WI OO Ee ee 
Wr MBOAMAN~MEO~Y~vsB? ~OC Bu CneceruPTOB O22 Tu BSvuBzw~sl-B/O-TV22Aa-~vrTererartu=s 
~o 
nm A —_ al J a 
ooee @ 2 NY @Qu34 smeu > Nu D3 NUM 2 + 2 prea a JM IW) IW) J J) 
Om NU UIO UY UUINUNE ED UIIN UI UU LIS I I I ION IB TT I A@QMM<e Toss ttytytoytrte 
or $5 Sots t34 ta ttt ae Oe a aS SS ER ee ee 
OMOE JOD OOQOOCOVUTWWw0Ee0=0 EZ jOO—= jIOO—Da aA oOwoomooE twODd<aaeosd za Da DaaTDTS< 
WT Bae PVUOEVETAETOY-ATETOOZTVOTTOVYVOTTE MAA VC OCT @OStCv@TtaA ov Taawoawoadwvoiaw 


-—— 2 > pA} WH ND VOWOF £2 WMO VOW TR WOWO &e —MODOWOMDO- OO VuNTODowooa 
OO <tc eC OMDOOVVVVUVV ACO OOWWWWe wu sr OCO0CCeK eK ee ee ee ee 
SSSSSoO OOOO OSS oS SOS SSS OOOO Oo Sooo ee ee eee eee eee eee 
COOOCOCSCOSOOSOSSOSSOSOSOSOSOOSOSSOSSOSOSSSSSSSOOOOSOOOOOOOSOOOOOOOOSSOOOSS 
SOOOOOOOOOOOOCOOSOCSOOOOSOSOOOSOSOSOSOSSOSOCSOSSSOSOSOSOSOOOOOOOOOOOOOOOSO 


<KDO-— DOW LOVWST & FOUP-OO— DOCU DVODOOOf- VOOWVK 4& WODDOOCOBOBOVBDOOMD 
OF O0— OVOAKCYUMGA— DOQSMYVAE— OOVOK—MALOGB4U VO OWAOOORrO Ou COOu O64 O44 OOu 


OVOOM TR KOKOMO UT ONUIM KH NUMIOW & OULMOWMODOOR. FF OCOMN OM OR. OMIM Ie PATO 
Serene ean ero WINOMNOMMMNNODNBDUIUNG LN OO LZ — OO LMNOOVW ZNOMOMOUWNOG 
o 


— 
— 


2c 


- - 
oO oOo 


3¢ 
08D0 
3¢ 


He-Ne K— NK WOOK OOO uo OOoCoco°ce°ono M uuHO —_ — rv 

MANN WIND Nee vet MWNaNMNN «VOM ew vw wv ve 

° oo Sa ” Ss sss 8&8 
=) 

si me en ee oe a ee 

o oo oo ©& So 


000003E8 


7 
18-56 -1984 00:27:54 VAX-11 Bliss-32 V4,0-742 
1 =36071 RF 99:95:34 DISKSVMSMASTER:CF11X.SRC 
18 AA OD 1 PUSHL 24(BASE) 
0000G CF 01 Fo 1 CALLS #1 RELFASE SERIAL LOCK 
18 AA 04 001 CLAL. 24(BAS 
0000G CF 0° FB 001 CALLS #0, RESTORE_CONTEXT 
04 A b4 1 CLRL = & (RB) 
4 0017 RET 
; Routine Size: 372 bytes, Routine Base: SCODE$ + 0000 
; 2% 1245 
57 1246 1 END 
58 1247 0 ELUDOM 

; PSECT SUMMARY 
: Name Bytes Attributes 
: SCODES 372 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
: Library Statistics 
Pre 5 ree Caria i aS aa? § scien 0 ainda yabols eocecseoe Pages Processing 
5 File Total Loaded Percent Mapped Time 
: _$255$DUA28:CSYSLIBILIB.L32;1 18619 49 0 1000 00:01.9 
: COMMAND QUALIFIERS 
: BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LISS:EXTIDX/OBJ=OBJ$:EXTIDX MSRC$:EXTIDX/UPDATE=(ENH$:EXTIDX) 


; Size: 372 code + 0 data bytes 
; Run Time: 00:20. 
; Elapsed Time: 00:38. 

746 


; Lexemes/CPU-Min: 45989 
: ponery Used 260 pages 


: Lines/CPU Min: 
: tion Complete 


; Compi 


Pp 
JEXTIDX.B32;1 


2 


Nee. 
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